<%@ Language=VBScript %> <% If session("agentusername")="" Then ef=True ec="授权非法，有可能是超时造成的。" ElseIf Request("username")<>"" and RegExpTest("[^A-Za-z0-9]",Request("username")) Then ef=True ec="请输入合法的用户名！" ElseIf Request("id")<>"" And not IsNumeric(Request("id")) Then ef=True ec="产品ID应该是数字！" end if if not ef then set ComX=server.CreateObject("freehost_com_7i24.FreehostM") hostname=trim(replace(Request("domain"),"http://","")) if hostname<>"" then hostname=ComX.idntoac_7i24_com(cstr(hostname)) hostnamecheck=replace(hostname,".","") hostnamecheck=replace(hostnamecheck,"xn--","") If RegExpTest("[^A-Za-z0-9--]",hostnamecheck) Then ef=True ec="请输入合法的域名！" end if hostname=Request("domain") end if if not ef then %> <%session("FreeHostCom").FreeHost_WR("html5")%>　域名列表 <%session("FreeHostCom").FreeHost_WR("html6")%> <%Set conn=Server.CreateObject("ADODB.Connection") conn.Open Application("FreeHostDBlink") Set dsdm = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_Product_Domain where (agent1='"&session("agentusername")&"' or agent2='"&session("agentusername")&"') order by id desc" if Request("id")<>"" then Sql="Select * from FreeHost.FreeHost_Product_Domain where (agent1='"&session("agentusername")&"' or agent2='"&session("agentusername")&"') and id ='"&Request("id")&"' order by id desc" if Request("domain")<>"" then Sql="Select * from FreeHost.FreeHost_Product_Domain where (agent1='"&session("agentusername")&"' or agent2='"&session("agentusername")&"') and domain like '%"&hostname&"%' order by id desc" if Request.QueryString("username")<>"" then Sql="Select * from FreeHost.FreeHost_Product_Domain where (agent1='"&session("agentusername")&"' or agent2='"&session("agentusername")&"') and username = '"&Request("username")&"' order by id desc" if Request("op")="end" then Sql="Select * from FreeHost.FreeHost_Product_Domain where (agent1='"&session("agentusername")&"' or agent2='"&session("agentusername")&"') and endtime<'"&dateadd("d",30,now)&"' order by endtime desc" if Request("op")="pre" then Sql="Select * from FreeHost.FreeHost_Product_Domain where (agent1='"&session("agentusername")&"' or agent2='"&session("agentusername")&"') and status='预注册成功' order by endtime desc" if Request("op")="err" then Sql="Select * from FreeHost.FreeHost_Product_Domain where (agent1='"&session("agentusername")&"' or agent2='"&session("agentusername")&"') and status='失败' order by endtime desc" if Request("op")="nowend" then Sql="Select * from FreeHost.FreeHost_Product_Domain where (agent1='"&session("agentusername")&"' or agent2='"&session("agentusername")&"') and endtime<'"&now&"' order by endtime desc" if Request("op")="reerr" then Sql="Select * from FreeHost.FreeHost_Product_Domain where (agent1='"&session("agentusername")&"' or agent2='"&session("agentusername")&"') and (status='续费失败' or status='续费状态不确定') order by endtime desc" if Instr(1,sql, ";", 1)>0 or Instr(1,sql, "--", 1)>0 then Response.Write "非法字符！" Response.End end if dsdm.PageSize = 25 dsdm.Open Sql,conn,1,1 if dsdm.Eof then %>
没有这类内容。 <% else if Request.ServerVariables("QUERY_STRING")<>"" then ask=Split(Request.ServerVariables("QUERY_STRING"), chr(38)&"pn") else ask=Split("freehost=1", "") ask(0)="freehost=lsoft" end if pn=1 if Request.QueryString ("pn")<>"" then pn=Request.QueryString ("pn") If dsdm.RecordCount <> 0 Then dsdm.AbsolutePage = CLng(pn) if clng(pn)<=10 then begini=1 if dsdm.PageCount<=10 then endini=dsdm.PageCount else endini=10 end if end if %>
<%if clng(pn)<=10 then%>最新 <%for i=begini to endini if clng(pn)=i then%>[<%=i%>]<%else%>[<%=i%>]<%end if%>　<%next%> <%else%>　最新[1]--[10]　　现在是第[<%=pn%>]页　共<%=dsdm.PageCount%>页　<%end if%><%If Clng(pn)>1 Then%>上一页<%End If%>|<%If Clng(pn)下一页 <%End If%> <% For N=1 To dsdm.PageSize If dsdm.RecordCount=0 Then Exit For %> <% If clng(pn)=dsdm.PageCount Then I = dsdm.RecordCount - (dsdm.PageCount-1) * dsdm.PageSize If N=I Then Exit For End If dsdm.movenext Next%>

编号	用户名	域名	状态	注册时间	到期时间	初始密码	详细信息	操作
<%=N%>	" target="_blank"><%=dsdm("username")%>	<%=dsdm("Domain")%>	<%if dsdm("endtime") 过期 <%else%> <%=dsdm("status")%> <%end if%>	<%=dsdm("starttime")%>	<%=dsdm("endtime")%>	<%=dsdm("inipass")%> " target="_blank">重置密码	<%if dsdm("status")="预注册成功" then%> " target="_blank">查询 <%else%> " target="_blank">管理 <%end if%>	<%if dsdm("status")="预注册成功" then%> <%if dsdm("username")<>session("agentusername") then%> &op=a&chmoney=y" onClick="if (confirm('请您确认后耐心等待，可能会需要两分钟的时间，在此期间请不要重复点击或关闭游览器....')==false){return false;}">确认扣用户费用 &op=a" onClick="if (confirm('下面的操作只扣您作为代理的成本价，不扣最终用户的费用，请您确认后耐心等待，可能会需要两分钟的时间，在此期间请不要重复点击或关闭游览器....')==false){return false;}">不扣用户费用 " onClick="if (confirm('请您确认是否要删除？')==false){return false;}">马上删除 <%else%> &op=a" onClick="if (confirm('请您确认后耐心等待，可能会需要两分钟的时间，在此期间请不要重复点击或关闭游览器....')==false){return false;}">确认开通扣费 " onClick="if (confirm('请您确认是否要删除？')==false){return false;}">马上删除 <%end if%> <%else%> ">延长期限 <%end if%>

<%end if dsdm.close set dsdm=nothing%> <%session("FreeHostCom").FreeHost_WR("html7")%> <% end if if ef then Response.Redirect "e.asp?e="&ec end if%>